home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / winfo / aboutwfo.frm next >
Text File  |  1995-05-08  |  4KB  |  127 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "About..."
  6.    ClientHeight    =   2865
  7.    ClientLeft      =   2340
  8.    ClientTop       =   2655
  9.    ClientWidth     =   3390
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Courier"
  13.    FontSize        =   9.75
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   3270
  17.    Left            =   2280
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form2"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2865
  23.    ScaleWidth      =   3390
  24.    Top             =   2310
  25.    Width           =   3510
  26.    Begin CommandButton Command1 
  27.       Caption         =   "&SEE YA!"
  28.       Height          =   375
  29.       Left            =   120
  30.       TabIndex        =   0
  31.       Top             =   2400
  32.       Width           =   3135
  33.    End
  34.    Begin Label Label3 
  35.       Alignment       =   2  'Center
  36.       BackColor       =   &H00FFFFFF&
  37.       Caption         =   "Prodigy: NWRD81A"
  38.       ForeColor       =   &H00FF0000&
  39.       Height          =   255
  40.       Left            =   840
  41.       TabIndex        =   3
  42.       Top             =   2040
  43.       Width           =   1815
  44.    End
  45.    Begin Label Label2 
  46.       Alignment       =   2  'Center
  47.       BackColor       =   &H00FFFFFF&
  48.       Caption         =   "phares@rsi.prc.com"
  49.       ForeColor       =   &H000000FF&
  50.       Height          =   255
  51.       Left            =   840
  52.       TabIndex        =   2
  53.       Top             =   1800
  54.       Width           =   1815
  55.    End
  56.    Begin Label Label1 
  57.       Alignment       =   2  'Center
  58.       BackColor       =   &H00FFFFFF&
  59.       Caption         =   "Wayne Phares"
  60.       ForeColor       =   &H00FF0000&
  61.       Height          =   255
  62.       Left            =   840
  63.       TabIndex        =   1
  64.       Top             =   1560
  65.       Width           =   1815
  66.    End
  67.    Begin Label Label6 
  68.       Alignment       =   2  'Center
  69.       BackColor       =   &H00FFFFFF&
  70.       Caption         =   "Feel free to send comments..."
  71.       ForeColor       =   &H000000FF&
  72.       Height          =   255
  73.       Left            =   0
  74.       TabIndex        =   6
  75.       Top             =   1200
  76.       Width           =   3375
  77.    End
  78.    Begin Label Label5 
  79.       Alignment       =   2  'Center
  80.       BackColor       =   &H00FFFFFF&
  81.       Caption         =   "more features to later versions. "
  82.       ForeColor       =   &H000000FF&
  83.       Height          =   255
  84.       Left            =   0
  85.       TabIndex        =   5
  86.       Top             =   960
  87.       Width           =   3375
  88.    End
  89.    Begin Label Label4 
  90.       Alignment       =   2  'Center
  91.       BackColor       =   &H00FFFFFF&
  92.       Caption         =   "This is version 1.0, I plan to add more"
  93.       ForeColor       =   &H000000FF&
  94.       Height          =   255
  95.       Left            =   0
  96.       TabIndex        =   4
  97.       Top             =   720
  98.       Width           =   3375
  99.    End
  100.    Begin Label Label7 
  101.       Alignment       =   2  'Center
  102.       BackColor       =   &H00FFFFFF&
  103.       Caption         =   " Windows Info"
  104.       FontBold        =   -1  'True
  105.       FontItalic      =   0   'False
  106.       FontName        =   "MS Serif"
  107.       FontSize        =   24
  108.       FontStrikethru  =   0   'False
  109.       FontUnderline   =   0   'False
  110.       ForeColor       =   &H00FF00FF&
  111.       Height          =   495
  112.       Left            =   0
  113.       TabIndex        =   7
  114.       Top             =   120
  115.       Width           =   3375
  116.    End
  117. End
  118.  
  119. Sub Command1_Click ()
  120. SeeYa.Show          'Show GoodBye message
  121. End Sub
  122.  
  123. Sub Form_Load ()
  124. Move (Screen.width - width) \ 2, (Screen.height - height) \ 2      'Center form
  125. End Sub
  126.  
  127.